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ADVANCED AVERAGER IMPROVEMENT 


DECUS Program Library Write-up DECUS NO. 8-536 

INTRODUCTION. 


This is a series of overlays to use the advanced averager program 
under the PS/8 monitor system on the LAB-. 8/1. 

Added is a sixth part which transfers the calculated averages to 
an output medium with use of the Command Decoder. 

Each average is preceeded by a heading which contains the necessary 
information - see description part VI -. The format of all numbers is 
nine positions from which the first is the sign and the last is a 
point,on DECTAPE packed in PS/8 ASCII Format. 

This may be read in Fortran as a F9.0 Format. 

The averager are written as 1,2 or 3 numbers - acoording to the 
calculated functions, ( see Advanced Averager Manual •) followed by 
a carriage return. 

The data may be read by PS/8 FORTRAN or PS/8 FOCAL. 

Required: 

1 LAB-8/1 with 8 k core. 

2 one or more DECTAPES or any other mass storage device. 

3 PS/8 monitor system. 








1. Changes to the PART I of the Advanced Averager 
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2. Changes to part II of the Advanced Averager. 

This part establishes name location for part III and changes 
AVG2 sothat after being chained to part I it'can bo caved, 
together with the rest of core as a compiled specific averager', 
which can be called to average incomming signals. 

GETPNT=0012 

PUTPNT=0013 

TEMP01=0l46 

f 

KM0004=121 
L7700=0005 


*7465 
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6002 
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*7 543 
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3» Changes to part III of the Advanced Averager. 
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AVG4= 6274 
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4. Changes to part IV of the Advanced Averager. 




*7550 
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7576 

0000 




7577 

2326 
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5 . Change to part V of the Advanced Averager. 


This overlay 

is only necessary when a 

part VI is used 

to store 

the averaged 

and calculated signals on Dectape. Else CTRL/C or 

CTRL/P returns control to PS/8. 
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6. Assembly of the Advanced Averager under PS/8 
Copy the Advanced Averager binary paper tape 
Separate the copy into its five parts 
All loading is done with ABSLOADER 
a Load part I of the Advanced Averager and save as follows: 

Save Sys AVG1 0 - 7577? 600=0000 
b Load part II of the Advanced Averager'and save: 

Save Sys AVG2 7000 - 7577; 6777=0000 
c Load part III of the Advanced Averager and save: 

Save Sys AVG3 6400 - 7577; 6527=0000 
d Load part IV of the Advanced Averager and save: 

Save Sys AVG4 6400 - 7577; 6777=0000 
e Load part V of the Advanced Averager and save: 

Save Sys AVG5 6400 - 7577; 6377=0000 
f Load papertape containing part VI to save data on Dectape and save: 
Save Sys AVG6 6400 - 7400; 6377=0000 

There are now two ways of patching the different parts. 

I With the GET command get the different parts in core and use ODT to 
change the appropriate locations. 

II.Compile with Edit and PAL the described instructions and overlay with 
the ABSLOADER as follows: 

R ABSLDR 

*Sys:AVGn CR n=1,2,3»^»or 5» CR=Carriage Return 
*PTR:(or DTAn:NAME.BN )$ 

Save Sys AVGn aaaa-bbbb;cccc=dddd 
according to the description above. 

You now have a running version of the Advanced Averager under PS/8. 

It must be used as follows: 

-Call the first part with:R AVG1 

Answer all- the questions according to the manual with one restriction. 
The user must prevent overloading of the last page of field one by 
simple calculation according to the Advanced Averager manual. The 
maximal space to be used is from location 0230 + n*12+1 where n= the 
number of different Averages and all calculation is done in octal to 
6274 on field 0 and from 0 - 7600 on field 1. 

This version won't run on more than 8 k !! 

After answering the last question - punch controltape- with N(o), the 
program chains automatically to part II which, when answers are given 
returns to monitor. 
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Save the program under your name as follows: 

Save Sys AVNAME 0 - 7577; 7000=0000 

This is the Averager you have to call when averaging has to be done. 

Call: R AVNAME 

Part II asks for trigger and timing signal. After the last carriage return 
this part automatically chains to part III after which the averaging 
can start. When averaging is done type CTRL/P to chain to part IV. 

This does the necessary calculations after which part V is automatically 
called. Herewith you can plot and type etc. just as is described in the 
manual. 

CTRL/P calls part VI which does the Dectape transfer. 

Description of part VI. 

This part uses the USR of PS/8 to transfer the calculated values of 
every point in the respective averaged signals to an output device. All 
output devices implied in the PS/8 systeem can be used but data are 
packed in PS/8ASCII format which is 3 characters in 2 words. The Format 
under which the numbers are represented is FORTRAN F9.0. 

All numbers begin with sign- space for plus -and end with a point. 
According to the type of average - choosen in part I of the averager - 
there are one, two or three numbers on a line. The first is the averaged 
value of a point, the second its standard error and the third its trend 
value (see manual Advanced Averager for further information). 

Each average is preceeded by a line of six numbers all in F9.0 format. 

They have the following meaning: 

1= the number of this average in all averages as defined in part I 

2= the number of points in this average 

3= number of microseconds/point 

4= delay used in this average 

5= the type of average: 1= average only 

2= average and standard error 
3= average, standard error and trend. 

6= number of sweeps for this average 

The last average stored on the device is followed by zero's, filling 
the transfer buffer and CTRL/Z to close the file. 

The only thing asked by this part are device name and file name. 

This is indicated by the printing of a * at the beginning of a line by 
the command decoder as follows: 

* device name :File name E<- 9 







If the extension is not given a zero extension is given. 

If the back arrow is forgotten two possibilities exists: 

1. When a non existing file name is given the error: 

FILE NOT FOUND is given and the command Decoder returns to wait for 
a new entry. 

2. When an existing file name is given the program comes to an error 
halt which is fatal. 

After the CR the program runs on its own and, on completion returns 
control to the keyboard monitor. 

The saved file can be used as input for calculation programs written in 
FORTRAN or PS/8 FOCAL. 

Under PS/8 FOCAL a warning is given that because of the used format sign 
information, except from the first entry in a line is lost, due to the 
fact that in FOCAL the valve ef a separaiaris-lodt - . Thisonly gives 
problems with the sign of the delay, all other values, except the value 
of an averaged point are positive. The sign of the averaged point is 
retained because a separator-carriage return-preceedes. 

Although the program is tested with many different averages it is possible 
that some bugs still exists for situations not tested. 

Three advices on the advanced averager 

1. Due to some bug in part III the first word which contains the number 
of sweeps of the first averager is not cleared by the normal procedure. 

To overcome this make it a habit to start part III with a CTRL/Z which 
clears all locations again, and this time also the first location of 
average 1. 

2. Due to the peculiar way of calculation in part V of the values slight 
differences between the lowest order digit of part V print out and the 
value of the saved file exist. The values in the file - divided by 1000 - 
are good. 

Because the values in core are in double word integer format which is 
transferred as F9.0 you have to divide all values of the average by 
thousend, except the values in the heading. 

3. Due to individual differences between cycle time of different machines 
an unintelligible halt can occur in part III. Although this is described 
in the manual it is very often overlooked. Simply prolong the least 
sweep interval, asked in part I and the trouble is over. 

Dr. J.L. Blom, 
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